
libname save "./" ; 

options mprint;
options ls=120 formdlim="-" symbolgen mlogic; * ps=2000;

/****************************************************************** 

this pgm reads transunion data, specifically the ACCEPTS file 

******************************************************************/
%macro tu;
    data save.tu&sufx._add;
        label
            PermID = "PermId for the consumer"
            TUEDT_2003 = "TUEDT 2003"
            score = "SCORE"
            CBSA = "CBSA"
            State_FIPS_Code = "State FIPS Code"
            County_FIPS_Code = "County FIPS Code"
            Cenus_Tract = "Cenus Tract"
            Cenus_Suffix = "Cenus Suffix"
            Census_Block_Group = "Census Block Group"
            Latitude = "Latitude"
            Longitude = "Longitude";

        infile "&tt." lrecl=8000 missover;

        input
            PERMID		$	1	-	13
            TUEDT_2003		$	14	-	27
            score		  	28	-	30
            CBSA	 		31	-	35
            State_FIPS_Code	$	36	-	37
            County_FIPS_Code	$	38	-	40
            Cenus_Tract		$	41	-	44
            Cenus_Suffix	$	45	-	46
            Census_Block_Group	$	47	-	47
            Latitude		 	48	-	55
            Longitude		 	56	-	64; 
                                                                                                                            
proc contents;
proc print data = save.tu&sufx._add (obs=300) label;  ** label here ; 
run;

proc print data = save.tu&sufx._add (obs=300) ;  ** no label here ; 
run;
%mend  tu;

%let sufx = 201006; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287567.ACC_add.txt;

%tu;
run;

%let sufx = 201206; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287568.ACC_add.txt; 

%tu;
run;

%let sufx = 201406; 
%let tt = PRM.EDTOUT.DGMFEDRE.P287569.ACC_add.txt; 

%tu;
run;
 

endsas ; 
